home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / I-J / If Monks had Macs....cpt / If Monks had Macs... / Meat & Conversation / card_33513.txt < prev    next >
Text File  |  1992-02-09  |  6KB  |  274 lines

  1. -- card: 33513 from stack: in
  2. -- bmap block id: 37231
  3. -- flags: 0000
  4. -- background id: 8210
  5. -- name: endpaper
  6.  
  7.  
  8. -- part 6 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=299 top=93 right=119 bottom=471
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 216
  16. -- text size: 14
  17. -- style flags: 0
  18. -- line height: 18
  19. -- part name: View of Cloister
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   reset
  23.   visual barn door close to grey
  24.   visual dissolve to grey
  25.   visual zoom in
  26.   go stack "Imitatio Christi"
  27.   if result() is empty then
  28.   else
  29.     beep
  30.   end if
  31. end mouseUp
  32.  
  33.  
  34. -- part 5 (button)
  35. -- low flags: 00
  36. -- high flags: A004
  37. -- rect: left=275 top=182 right=208 bottom=374
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 216
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Journal
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   reset
  49.   visual barn door close to grey
  50.   visual dissolve to grey
  51.   visual zoom in
  52.   go stack "Journal"
  53.   if result() is empty then
  54.   else
  55.     beep
  56.   end if
  57. end mouseUp
  58.  
  59.  
  60. -- part 11 (button)
  61. -- low flags: 00
  62. -- high flags: A004
  63. -- rect: left=275 top=145 right=172 bottom=375
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 216
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Library
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   reset
  75.   visual barn door close to black
  76.   visual dissolve to black
  77.   visual zoom in
  78.   go stack "Library"
  79.   if the result is empty then
  80.   else
  81.     beep
  82.   end if
  83. end mouseUp
  84.  
  85.  
  86. -- part 4 (button)
  87. -- low flags: 00
  88. -- high flags: A004
  89. -- rect: left=391 top=182 right=208 bottom=490
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 216
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Home
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   reset
  101.   visual barn door close to black
  102.   visual dissolve to black
  103.   visual zoom in
  104.   go Home
  105. end mouseUp
  106.  
  107.  
  108. -- part 3 (button)
  109. -- low flags: 00
  110. -- high flags: A004
  111. -- rect: left=390 top=146 right=172 bottom=489
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 216
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Begin Again
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   answer "Start the game from the beginning?" with "Yes" or "No"
  123.   if it is "Yes" then
  124.     set cursor to 3
  125.     visual wipe right
  126.     go cd "the dock"
  127.     visual wipe right
  128.     go cd folded
  129.     visual wipe left
  130.     go cd over
  131.     visual scroll left fast
  132.     go cd title
  133.     openStack
  134.     about
  135.   end if
  136. end mouseUp
  137.  
  138.  
  139. -- part 14 (button)
  140. -- low flags: 00
  141. -- high flags: A004
  142. -- rect: left=332 top=278 right=304 bottom=453
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 216
  147. -- text size: 14
  148. -- style flags: 1024
  149. -- line height: 18
  150. -- part name: Lock Scripts?
  151. ----- HyperTalk script -----
  152. -- Fellow HyperCardists:
  153.  
  154. -- Stacks that are password-protected or have the userLevel set to
  155. -- something other than 5 are irritating, but allowing the players,
  156. -- while playing this game, to peek at the scripts that contain the
  157. -- solutions to the puzzles would reduce the challenge of the game.
  158. -- Therefore, this stack contains a "lock" that keeps the scripts
  159. -- hidden. I felt there should be some way, though, to make the scripts
  160. -- available to those who might want to use the basic structure of
  161. -- the stack for a game of their own design or would just like to see
  162. -- and chortle at my inelegant code. Thus, one of the payoffs for
  163. -- completing the game is that the stack is automatically "unlocked"
  164. -- when this last card is reached, and the user who struggled to solve
  165. -- the puzzles can look at the scripts at any time, but can merely click
  166. -- this button to render the scripts inaccessible to the next player.
  167.  
  168. -- The next dialog box you see will ask if you want to lock or unlock
  169. -- "Meat & Conversation."
  170. -- Click on "Lock It" if you want to prevent others' peeking. This will
  171. -- return you to the beginning of the game.
  172. -- Click "Later" if you want to leave the stack in its current unlocked
  173. -- state.
  174.  
  175. -- A button has been added to the Home card that is being distributed
  176. -- with the "If Monks Had Macs..." collection. Its purpose is to make
  177. -- the scripts of this stack accessible to those who get frustrated
  178. -- with the game "Meat & Conversation" and don't want to play it out
  179. -- to the end.
  180. -- (If the cantmodify of "Meat & Conversation" is, because it is on
  181. -- a locked disk or a CD, set to true, the stack will still be locked
  182. -- when you open it again, though.)
  183.  
  184. -- If you are going to give a copy of this game to someone else, please
  185. -- make sure that it is locked before you pass it on.
  186.  
  187. -- Be sure to give them a copy of the button, too.
  188.  
  189. --       Thanks
  190. --       Fillmore
  191.  
  192.  
  193. on mouseUp
  194.   cleanScreen
  195.   edit script of target
  196.   answer "When you finished the game, you also gained access to its scripts. " &"Clicking ‚ÄúLock It‚Äù will return this stack to the ‚ÄúNo Peeking‚Äù mode." with "Lock It" or "Later"
  197.   if it is "Later" then exit mouseUp
  198.   set cantmodify of this stack to false
  199.   set cursor to 3
  200.   visual wipe right
  201.   go cd "the dock"
  202.   visual wipe right
  203.   go cd folded
  204.   visual wipe left
  205.   go cd over
  206.   visual scroll left fast
  207.   go cd title
  208.   put "Locked" into cd fld "Locked"
  209.   openStack
  210.   about
  211. end mouseUp
  212.  
  213. on chooseDialog
  214.   answer "You can now look at the scripts. Please click on " &"‚ÄúLock Scripts?‚Äù to return this stack to the ‚ÄúNo Peeking‚Äù mode " &"for the next player."
  215. end chooseDialog
  216.  
  217. on DoLockButton -- Used by the Home card button
  218.   global LocBtnTemp
  219.   set cantmodify of this stack to false
  220.   if cd fld "locked" of first cd is empty then
  221.     put "locked" into cd fld "locked" of first cd
  222.   else
  223.     put empty into cd fld "locked" of first cd
  224.   end if
  225.   put cd fld "Locked" of first cd into LocBtnTemp
  226. end DoLockButton
  227.  
  228.  
  229. -- part contents for background part 1
  230. ----- text -----
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250. -- part contents for background part 2
  251. ----- text -----
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.